﻿Imports DevExpress.XtraSplashScreen

Public Class DMManHinh
    Private Sub LoadDuLieu()
        SplashScreenManager.ShowForm(GetType(WaitForm1))
        Me.DMPhanHeTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMPhanHe)
        Me.DMManHinhTableAdapter.Fill(Me.PCV_CLINICDataSet.DMManHinh)
        Me.DMManHinhChiTietTableAdapter.Fill(Me.PCV_CLINICDataSet.DMManHinhChiTiet)
        Me.ControlTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.Control)
        SplashScreenManager.CloseForm()
    End Sub
    Private Sub DMManHinh_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadDuLieu()
    End Sub
    Public Sub New()
        InitializeComponent()
        Me.setSoTab(1)
        Me.setObj(Me.PCV_CLINICDataSet, Me.PCV_CLINICDataSet.DMManHinh, DMManHinhBindingSource, TableAdapterManager, DMManHinhTableAdapter, PhanheISearchLookupEdit, TenITextEdit)
        Me.setTab1(Me.PCV_CLINICDataSet.DMManHinhChiTiet, FKDMManHinhChiTietDMManHinhBindingSource, DMManHinhChiTietTableAdapter)
    End Sub
    Private Sub RepositoryItemISearchLookUpEdit_Control_EditValueChanging(sender As Object, e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles RepositoryItemISearchLookUpEdit_Control.EditValueChanging

    End Sub
End Class
